home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / favour1a / form1.frm < prev    next >
Text File  |  1999-10-22  |  8KB  |  246 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmHistory 
  4.    Caption         =   "Favourites  Manager"
  5.    ClientHeight    =   3480
  6.    ClientLeft      =   3720
  7.    ClientTop       =   2490
  8.    ClientWidth     =   6000
  9.    ForeColor       =   &H00400040&
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   3480
  14.    ScaleWidth      =   6000
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton cmdReload 
  17.       Caption         =   "Reload"
  18.       Height          =   375
  19.       Left            =   4440
  20.       TabIndex        =   4
  21.       ToolTipText     =   "Reload Favorites"
  22.       Top             =   1680
  23.       Width           =   1335
  24.    End
  25.    Begin VB.TextBox txtShow 
  26.       Enabled         =   0   'False
  27.       Height          =   375
  28.       Left            =   3390
  29.       Locked          =   -1  'True
  30.       TabIndex        =   6
  31.       TabStop         =   0   'False
  32.       ToolTipText     =   "LOCKED"
  33.       Top             =   2700
  34.       Width           =   2415
  35.    End
  36.    Begin VB.CommandButton cmdDelete 
  37.       Caption         =   "Delete"
  38.       Height          =   375
  39.       Left            =   4440
  40.       TabIndex        =   3
  41.       ToolTipText     =   "Delete a Favorite"
  42.       Top             =   1200
  43.       Width           =   1335
  44.    End
  45.    Begin VB.TextBox txtAdd 
  46.       Height          =   375
  47.       Left            =   3390
  48.       TabIndex        =   5
  49.       ToolTipText     =   "Type Favorite to Add in Here"
  50.       Top             =   2205
  51.       Width           =   2415
  52.    End
  53.    Begin VB.CommandButton cmdSave 
  54.       Caption         =   "Save"
  55.       Height          =   375
  56.       Left            =   4440
  57.       TabIndex        =   2
  58.       ToolTipText     =   "Save Favorites"
  59.       Top             =   720
  60.       Width           =   1335
  61.    End
  62.    Begin VB.CommandButton cmdAdd 
  63.       Caption         =   "Add"
  64.       Height          =   375
  65.       Left            =   4440
  66.       TabIndex        =   1
  67.       ToolTipText     =   "Add a Favorite"
  68.       Top             =   240
  69.       Width           =   1335
  70.    End
  71.    Begin MSComctlLib.ListView lvFav 
  72.       Height          =   3255
  73.       Left            =   120
  74.       TabIndex        =   0
  75.       TabStop         =   0   'False
  76.       ToolTipText     =   "Favorites List"
  77.       Top             =   120
  78.       Width           =   3165
  79.       _ExtentX        =   5583
  80.       _ExtentY        =   5741
  81.       View            =   3
  82.       Arrange         =   1
  83.       Sorted          =   -1  'True
  84.       MultiSelect     =   -1  'True
  85.       LabelWrap       =   -1  'True
  86.       HideSelection   =   -1  'True
  87.       AllowReorder    =   -1  'True
  88.       FlatScrollBar   =   -1  'True
  89.       FullRowSelect   =   -1  'True
  90.       GridLines       =   -1  'True
  91.       HotTracking     =   -1  'True
  92.       HoverSelection  =   -1  'True
  93.       _Version        =   393217
  94.       ForeColor       =   255
  95.       BackColor       =   3199960
  96.       BorderStyle     =   1
  97.       Appearance      =   1
  98.       NumItems        =   1
  99.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  100.          Text            =   "Sites"
  101.          Object.Width           =   5380
  102.       EndProperty
  103.    End
  104. End
  105. Attribute VB_Name = "frmHistory"
  106. Attribute VB_GlobalNameSpace = False
  107. Attribute VB_Creatable = False
  108. Attribute VB_PredeclaredId = True
  109. Attribute VB_Exposed = False
  110. '##################################################
  111. '#            Code by Andy McCurtin               #
  112. '#  You may use this code freely in any of your   #
  113. '#  programs I would however appreiciate it if    #
  114. '#  you improve this code in any way that you     #
  115. '#  send me a copy of the update code             #
  116. '#                                                #
  117. '#          e-mail : moon_2@hotmail.com           #
  118. '#                                                #
  119. '#                Happy Programming               #
  120. '##################################################
  121.  
  122. Option Explicit
  123.  
  124. '############### Global Variable Declarations #####
  125. Dim a() As String
  126. Dim i As Integer
  127. Dim ItemCount
  128. '##################################################
  129.  
  130. Private Sub CmdAdd_Click()
  131.  
  132. Dim itm As ListItem     'set itm as lvFav.listitem
  133.  
  134. If txtAdd.Text = "" Then     'if txtAdd has nothing in it diplay msgbox
  135.     MsgBox "Please enter something to add", vbInformation, "Favourites  Manager"
  136. Else    'otherwise add the text in txtAdd to lvFav
  137.       Set itm = lvFav.ListItems.Add(, , txtAdd.Text)
  138. End If
  139.  
  140. txtAdd.Text = "" 'clear txtAdd
  141.  
  142. End Sub
  143.  
  144. Private Sub cmdDelete_Click()
  145.  
  146. 'if the list count is 0 and no items are selected
  147. 'or selected item is index 1 display msgbox
  148. If Not lvFav.ListItems.Count = 0 And Not lvFav.SelectedItem.Selected Or lvFav.SelectedItem.Index = 1 Then
  149. MsgBox "Nothing to delete", vbInformation, "Favourites  Manager"
  150. Else    'otherwise remove selected item
  151. lvFav.ListItems.Remove lvFav.SelectedItem.Index
  152. End If
  153.  
  154. cmdReload.Enabled = True    're-enable cmdReload
  155.  
  156. End Sub
  157.  
  158. Private Sub cmdReload_Click()
  159.  
  160. '######## Declare loacal variables ##############
  161. Dim itm As ListItem     'set itm as lvFav.listitem
  162. Dim a As String     'set a as a string
  163. Dim b As String     'set b as a string
  164. '################################################
  165.  
  166.  lvFav.ListItems.Clear     'clear contents of lvFav to
  167.                         'prevent over writing files
  168. b = "Select an item from below"    'set b as text
  169. Set itm = lvFav.ListItems.Add(, , b)   'add b to lvFav
  170.  
  171. '####### Opens & loads text file into lvFav #########
  172.     Open App.Path & "\Favourites .txt" For Input As #1
  173.     Do Until EOF(1)
  174.     Input #1, a
  175.               Set itm = lvFav.ListItems.Add(, , a)
  176.     Loop
  177.     Close #1
  178. '################################################
  179.  
  180. cmdReload.Enabled = False       're-enable cmdReload
  181.  
  182. End Sub
  183.  
  184. Private Sub CmdSave_Click()
  185.  
  186. 'set itemcount as lvFav.listitems.count
  187. ItemCount = frmHistory.lvFav.ListItems.Count
  188. For i = 2 To ItemCount      'load from index 2 to total
  189.     ReDim Preserve a(i) As String
  190.     a(i) = frmHistory.lvFav.ListItems(i).Text   'set a as lvFav.listitems text i.e. www.microsoft.com
  191.     Next i      'load next item
  192.         
  193. '######### opens file for appending ###############
  194.     Open App.Path & "\Favourites .txt" For Output As #1
  195.     For i = 2 To ItemCount
  196.         Write #1, a(i)
  197.         Next i
  198.         Close #1
  199. '##################################################
  200.  
  201. cmdReload.Enabled = True        're-enable cmdReload
  202.  
  203. End Sub
  204.  
  205. Private Sub Form_Load()
  206.  
  207. '######## Declare loacal variables ##############
  208. Dim itm As ListItem     'set itm as lvFavFav.listitem
  209. Dim a As String     'set a as a string
  210. Dim b As String     'set b as a string
  211. '################################################
  212.  
  213.  lvFav.ListItems.Clear     'clear contents of lvFavFav to
  214.                         'prevent over writing files
  215. b = "Select an item from below"    'set b as text
  216. Set itm = lvFav.ListItems.Add(, , b)   'add b to lvFav
  217.  
  218. '####### Opens & loads text file into lvFav #########
  219.     Open App.Path & "\Favourites .txt" For Input As #1
  220.     Do Until EOF(1)
  221.     Input #1, a
  222.               Set itm = lvFav.ListItems.Add(, , a)
  223.     Loop
  224.     Close #1
  225. '################################################
  226.  
  227. End Sub
  228.  
  229.  
  230. Private Sub lvFav_Click()
  231.  
  232. If lvFav.ListItems.Count = 0 Then 'if no items to select then display msgbox
  233. MsgBox "No items to select", vbInformation, "Favourites  Manager"
  234. Else    'otherwise set txtShow.text as lvFav.items text this can be used to tranfer to combobox for
  235.         'URL browsing
  236. txtShow.Text = lvFav.SelectedItem
  237. End If
  238.  
  239. End Sub
  240.  
  241. Private Sub lvFav_LostFocus()
  242.  
  243. txtShow.Text = "" 'when lvFav loses focus clear txtShow
  244.  
  245. End Sub
  246.